home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
18
/
fpc103.zip
/
EDITSET.SEQ
< prev
next >
Wrap
Text File
|
1988-04-08
|
14KB
|
306 lines
\ EDITSET.SEQ Set the editor key assignments by Tom Zimmer
comment:
The file EDITSET.SEQ contains the command key definitions for the
SED editor. You can change these assignments, to redefine how the
editor works.
See the end of EDITSET.SEQ for a description of the functions
available in the editor.
comment;
only forth also editor also definitions
: ctlset ( n1 | function --- )
' swap \ get address of functon
0 max 31 min 2* \ clip n1 to valid CTRL char
2+ \ step past EXEC:
['] s^tbl >body @ \ relative segment of S^TBL
xseg @ + swap !L ; \ convert to absolute segment & store
: fnset ( n1 | function --- ) \ same comments as ABOVE
' swap
128 max 255 min 128 - 2*
2+
['] sfuntbl >body @ \ relative segment of SFUNTBL
xseg @ + swap !L ;
\ control key function table
control @ ctlset kerr \ Null, can NOT be generated.
control A ctlset lwrd \ Control A
control B ctlset kerr \ Control B ** Not used **
control C ctlset pdn \ Control C
control D ctlset rchr \ Control D
control E ctlset upln \ Control E
control F ctlset rwrd \ Control F
control G ctlset fdel \ Control G
control H ctlset bdel \ Control H Back Space
control I ctlset stab \ Control I TAB
control J ctlset kerr \ Control J ** Not used **
control K ctlset kerr \ Control K ** Not used **
control L ctlset lmset \ Control L
control M ctlset nln \ Control M
control N ctlset spltln \ Control N
control O ctlset kerr \ Control O ** Not used **
control P ctlset kerr \ Control P ** Not used **
control Q ctlset kerr \ Control Q ** Not used **
control R ctlset pup \ Control R
control S ctlset lchr \ Control S
control T ctlset wdel \ Control T
control U ctlset updt \ Control U
control V ctlset itgl \ Control V
control W ctlset sclup \ Control W
control X ctlset dnln \ Control X
control Y ctlset ldel \ Control Y
control Z ctlset scldn \ Control Z
control [ ctlset sesc \ ESCape
control \ ctlset kerr \ Control \ ** Not used **
control ] ctlset kerr \ Control ] ** Not used **
control ^ ctlset kerr \ Control ^ ** Not used **
control _ ctlset kerr \ Control _ ** Not used **
143 fnset sbtab \ Back TAB
158 fnset kerr \ Alt-A ** Not used **
176 fnset kerr \ Alt-B ** Not used **
174 fnset exportx \ Alt-C
160 fnset kerr \ Alt-D ** Not used **
146 fnset kerr \ Alt-E ** Not used **
161 fnset kerr \ Alt-F ** Not used **
162 fnset kerr \ Alt-G ** Not used **
163 fnset kerr \ Alt-H ** Not used **
151 fnset kerr \ Alt-I ** Not used **
164 fnset kerr \ Alt-J ** Not used **
165 fnset tabxp \ Alt-K
166 fnset lmset \ Alt-L
178 fnset kerr \ Alt-M ** Not used **
177 fnset joinln \ Alt-N
152 fnset alt-O \ Alt-O
153 fnset pmenux \ Alt-P
144 fnset shom \ Alt-Q
147 fnset kerr \ Alt-R ** Not used **
159 fnset kerr \ Alt-S ** Not used **
148 fnset tabset \ Alt-T
150 fnset wudel \ Alt-U
175 fnset importx \ Alt-V
145 fnset wr->fl \ Alt-W
173 fnset excutx \ Alt-X
149 fnset lundel \ Alt-Y
172 fnset send \ Alt-Z
248 fnset kerr \ Alt 1 ** Not used **
249 fnset kerr \ Alt 2 ** Not used **
250 fnset kerr \ Alt 3 ** Not used **
251 fnset kerr \ Alt 4 ** Not used **
252 fnset kerr \ Alt 5 ** Not used **
253 fnset kerr \ Alt 6 ** Not used **
254 fnset kerr \ Alt 7 ** Not used **
255 fnset kerr \ Alt 8 ** Not used **
128 fnset kerr \ Alt-9 ** Not used **
129 fnset kerr \ Alt-0 ** Not used **
130 fnset kerr \ Alt - ** Not used **
131 fnset kerr \ Alt = ** Not used **
199 fnset shoml \ HOME key
207 fnset sendl \ END key
200 fnset upln \ Up Arrow
208 fnset dnln \ Down Arrow
203 fnset lchr \ Left Arrow
205 fnset rchr \ Right Arrow
201 fnset pup \ PgUp
209 fnset pdn \ PgDn
210 fnset itgl \ Insert key
211 fnset fdel \ Delete key
243 fnset lwrd \ Control Left Arrow
244 fnset rwrd \ Control Right Arrow
247 fnset shom \ Control HOME
245 fnset send \ Control END
246 fnset kerr \ Control PgDn ** Not used **
132 fnset kerr \ Control PgUp ** Not used **
187 fnset shelp \ F1
187 =: helpkey \ Assign F1 as the HELPKEY value.
\ If you set another key as HELP, then
\ change the 187 to the new value of help.
188 fnset tscrn \ F2
189 fnset smrk \ F3
190 fnset bscrn \ F4
191 fnset sgetl \ F5
192 fnset sloon \ F6
193 fnset kerr \ F7 ** Not used **
194 fnset srepn \ F8
195 fnset kerr \ F9 ** Not used **
196 fnset ^cc \ F10 ** Not used **
212 fnset kerr \ Shift F1 ** Not used **
213 fnset kerr \ Shift F2 ** Not used **
214 fnset kerr \ Shift F3 ** Not used **
215 fnset kerr \ Shift F4 ** Not used **
216 fnset kerr \ Shift F5 ** Not used **
217 fnset sloob \ Shift F6
218 fnset kerr \ Shift F7 ** Not used **
219 fnset repall \ Shift F8
220 fnset kerr \ Shift F9 ** Not used **
221 fnset kerr \ Shift F10 ** Not used **
222 fnset kerr \ Control F1 ** Not used **
223 fnset kerr \ Control F2 ** Not used **
224 fnset kerr \ Control F3 ** Not used **
225 fnset kerr \ Control F4 ** Not used **
226 fnset kerr \ Control F5 ** Not used **
227 fnset kerr \ Control F6 ** Not used **
228 fnset kerr \ Control F7 ** Not used **
229 fnset kerr \ Control F8 ** Not used **
230 fnset kerr \ Control F9 ** Not used **
231 fnset kerr \ Control F10 ** Not used **
232 fnset kerr \ Alt F1 ** Not used **
233 fnset kerr \ Alt F2 ** Not used **
234 fnset kerr \ Alt F3 ** Not used **
235 fnset kerr \ Alt F4 ** Not used **
236 fnset kerr \ Alt F5 ** Not used **
237 fnset slooa \ Alt F6
238 fnset kerr \ Alt F7 ** Not used **
239 fnset srepa \ Alt F8
240 fnset kerr \ Alt F9 ** Not used **
241 fnset squt \ Alt F10
\ At the moment I do not know of any keys that will generate the
\ following values.
\ Tom Zimmer
133 fnset kerr \ 133 ** Not used **
134 fnset kerr \ 134 ** Not used **
135 fnset kerr \ 135 ** Not used **
136 fnset kerr \ 136 ** Not used **
137 fnset kerr \ 137 ** Not used **
138 fnset kerr \ 138 ** Not used **
139 fnset kerr \ 139 ** Not used **
140 fnset kerr \ 140 ** Not used **
141 fnset kerr \ 141 ** Not used **
142 fnset kerr \ 142 ** Not used **
154 fnset kerr \ 154 ** Not used **
155 fnset kerr \ 155 ** Not used **
156 fnset kerr \ 156 ** Not used **
157 fnset kerr \ 157 ** Not used **
167 fnset kerr \ 167 ** Not used **
168 fnset kerr \ 168 ** Not used **
169 fnset kerr \ 169 ** Not used **
170 fnset kerr \ 170 ** Not used **
171 fnset kerr \ 171 ** Not used **
179 fnset kerr \ 179 ** Not used **
180 fnset kerr \ 180 ** Not used **
181 fnset kerr \ 181 ** Not used **
182 fnset kerr \ 182 ** Not used **
183 fnset kerr \ 183 ** Not used **
184 fnset kerr \ 184 ** Not used **
185 fnset kerr \ 185 ** Not used **
186 fnset kerr \ 186 ** Not used **
197 fnset kerr \ 197 ** Not used **
198 fnset kerr \ 198 ** Not used **
202 fnset kerr \ 202 ** Not used **
204 fnset kerr \ 204 ** Not used **
206 fnset kerr \ 206 ** Not used **
242 fnset kerr \ 242 ** Not used **
only forth also definitions
\S Don't compile the rest of this file.
Function Descriptions for the above key definitions
tscrn Move to top of screen.
bscrn Move to bottom of screen.
dnln Move down a line
upln Move up a line
lchr Move left a character
rchr Move right a character
lwrd Move left a word
rwrd Move right a word
pdn Move down one screen full
pup Move up one screen full
shoml Move to the beginning of the current line.
sendl Move to the end of the current line.
shom Move to the beginning of the file.
send Move to the end of the file.
fdel Delete current character under cursor
bdel Delete character before cursor
wdel Delete word forward starting at cursor
ldel Delete all of current edit line
excutx Delete all marked lines of text, MARK sets start.
Cuts all lines to the file TEMP.SEQ
Prompts for a filename if SHIFT is held down.
shelp Display the first of two help screens.
pmenux Enter print menu.
exportx Copy the portion of the current file starting at the
last MARK, until the cursor line to the file TEMP.SEQ.
Prompts for a filename if Shift is held down.
importx Insert the file TEMP.SEQ at the cursor, or allow
selection of a file if Shift is held down.
sgetl Get a line from MARK to current cursor position.
stab Insert spaces up to next tab setting
sbtab Move back to previous tab position.
Alt-O The following options are available under this command
tabxp Expand tabs in entire file to spaces.
l>lcase Convert the current line to lower case
l>ucase Convert the current line to uppercase
^cc Insert the value of any key following this command.
joinln Join this line and next line.
spltln Split current line at cursor into two lines
kerr Key error, beeps
sloon Search for name with prompt for text.
slooa Search again for same text.
sloob Search backwards for last text searched for.
srepn Replace searched text with prompt for text.
srepa Replace again with same text.
repall Replace all occurances of found text with replace text,
no prompting.
nln Return, go down to next line.
sclup Scroll the screen up, leaving cursor on same screen line.
scldn Scroll the screen down, leaving cursor on same screen line.
lmset Set left margin to current cursor position.
lmset Set the left margin to current cursor position
tabset Set the tab increment to multiples of the current column.
smrk Set the MARK for copy lines, or export.
updt Save changes to disk and continue editing
sesc Terminate edit and save changes unless Shift is being held
down, then terminate edit without saving changes.
squt Terminate the edit, and discard all changes.
itgl Toggle between insert and overwrite mode
wudel Undelete the most recent word deleted.
repeatable up to 256 bytes.
lundel Undelete the last line deleted, upto 50 lines.
wr->fl Write all of current file to a new file which will
be prompted for.